LEVEL PEAK IN GFA

LEVEL PEAK INDICATORS IN GFA.

Well this is the second part of the GFA_PROGS. In the first part you can
see how to make soundchip music play in GFA. But there is more, in lots of
demo's and even in this magazine you can see peak level indicators. You
can also find them on a cassette recorder or tuner/amplifier. So here is
your change to make them in GFA basic to see what your music is doing.
The listing below is just a part of the wholw listing, the rest of it 
is the other part of the text YAMAHA CHIP MUSIC. But to make things a
bit easier i have put the complete list again in the folder.
I would say take a good look at the listing below...
 
PROCEDURE level_bars
  CLS                                   ! clear the screen
  FOR t=0 TO 15                         ! for_next loop
    BOX 0,16,8,15-t                     ! draw a box in 16 different hights
    GET 0,0,8,16,ba$(t)                 ! get the different hights
  NEXT t                                ! draw next box
  CLS                                   ! clear screen again
RETURN
'
PROCEDURE bars
  WHILE NOT INP?(2)                      ! if no key press then.. <---
    PUT 0,30,ba$(XBIOS(28,0,8))          ! put volume bar channel 1   |
    PUT 10,30,ba$(XBIOS(28,0,9))         ! put volume bar channel 2   |
    PUT 20,30,ba$(XBIOS(28,0,10))        ! put volume bar channel 3   |
    PUT 30,30,ba$((XBIOS(28,0,0) DIV 16))! put tone bar channel 1     |
    PUT 40,30,ba$((XBIOS(28,0,2) DIV 16))! put tone bar channel 2     |
    PUT 50,30,ba$((XBIOS(28,0,4) DIV 16))! put tone bar channel 3     |
                                                                      |
                                                                      |
  The first 3 are volume bars, always from 0 to 15.                   |
  The last 3 are tone hights, from 0 to 255. We only got 16 level     |
   bars so we DIV it by 16 and then it works with 16 level bars.      |
                                                                      |  
                                                                      |
  WEND                                   ! and back to above      -----
RETURN                                   ! back to main loop...'


So i hope you understand all this, in the folder GFA_PROG.S is a file
called GFA_PEAK.LST and you can MERGE it in GFA basic 3.xx. Well i
hope you have some us for it, an if you have some nice routines in GFA
please send them in so other readers can use them. We all have to help
one an other to get the best out of GFA basic, oke ???
'
If you still have some questions about it then write to us, and maybe
we write you back or will write about it in the next issue of the
D.B.A. magazine.

                        Keep on Programming...

                                Bonus Software